home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8507.arc / IFAN.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  256b  |  8 lines
  1. 10 ' FAN.BAS -- for IBM PGC
  2. 20 OPEN "pgc" FOR OUTPUT AS #1
  3. 30 PRINT #1, "CA rf li 0 f 0 pf 1 di 0"
  4. 40 FOR I=0 TO 255
  5. 50   A=I-38 '-- (256-180)/2
  6. 60   PRINT #1,"C ";I; " S 200 ";A;A+2
  7. 70 NEXT I
  8.